Wordへの変換

RmdファイルをPandocを用いてWordへ変換するためのスクリプト:

library(knitr)
input <- "[61]rmd2word.Rmd"
env <- new.env()
assign("table.format", "markdown", env)
output <- knit(input, envir = env, encoding = "UTF-8")
pandoc(output, format = "docx")

\( \alpha+\beta=\gamma^2 \) などの数式も変換できる。データフレームは kable関数 で整形しておくと表に変換される。

kable(head(cars))
speed dist
4 2
4 10
7 4
7 22
8 16
9 10

注意

数式が文字化けした時の対処:

  1. Wordファイルの拡張子を docx から zip へ変更
  2. zipを解凍し word/document.xml を適当なテキストエディタで開く
  3. ファイル内の <m:t><w:rFonts w:hAnsi="Cambria Math" w:ascii="Cambria Math"/><m:t> に置換し保存する
  4. 解凍したファイル4つを選択して再圧縮し、拡張子を docx に戻す

Wordへの変換イメージは次のようになる

変換後